home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form frmSplash
- BorderStyle = 0 'None
- ClientHeight = 3675
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 5970
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- Picture = "frmSplash.frx":0000
- ScaleHeight = 3675
- ScaleWidth = 5970
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.Label Label1
- BackStyle = 0 'Transparent
- Height = 2175
- Left = 3480
- TabIndex = 0
- Top = 120
- Width = 2355
- End
- Attribute VB_Name = "frmSplash"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
- ' File: frmSplash.frm
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Private Sub Form_Load()
- Label1.Caption = "This sample will demonstrate how to create many of the features found in Netmeeting with Visual Basic and DirectX8." & _
- vbCrLf & vbCrLf & vbCrLf & "Microsoft
- Netmeeting
- Copyright Microsoft 1996-2001"
- Me.Show
- DoEvents
- 'Now wait for a short time
- Sleep 1500
- End Sub
-